perm filename ADD.PRF[226,JMC] blob sn#005386 filedate 1972-07-09 generic text, type T, neo UTF8
AXIOM EVSUM
(∀ X) (∀ Y) (XεI∧YεI⊃X+Y=EVAL LIST('PLUS,X,Y)) 

PROOF ONE 

1:	'17εI∧'34εI⊃'17+'34=EVAL LIST('PLUS,'17,'34) BY AXIOM(EVSUM
,'17,'34) 

2:	17='17 BY INTQUOTE 17 

3:	34='34 BY INTQUOTE 34 

4:	17εI BY ISINT 17 

5:	34εI BY ISINT 34 

6:	'17εI BY REPL(4,2,1) 

7:	'34εI BY REPL(5,3,1) 

8:	'17εI∧'34εI BY AI(6,7) 

9:	'17+'34=EVAL LIST('PLUS,'17,'34) BY MP(8,1) 

10:	LIST('PLUS,'17,'34)='(PLUS 17 34) BY EVLIST('PLUS,'17,'34) 

11:	'17+'34=EVAL '(PLUS 17 34) BY REPL(9,10,1) 

12:	EVAL '(PLUS 17 34)='51 BY EVEVAL (17+34) 

13:	'17+'34='51 BY REPL(11,12,1) 

14:	'17+34='51 BY REPR(13,3,1) 

15:	17+34='51 BY REPR(14,2,1) 

16:	51='51 BY INTQUOTE 51 

17:	17+34=51 BY REPR(15,16,1)